home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / segue.exe / SUPVRLST.PRG < prev    next >
Text File  |  1991-05-20  |  2KB  |  79 lines
  1. *.............................................................................
  2. *   Program Name: SUPVRLST.PRG      Copyright: HRF Associates, Inc.                                     
  3. *   Date Created: 07/24/91           Language: Clipper                                             
  4. *   Time Created: 15:26:07             Author: Bob Fogle  (203) 866-4324                               
  5. *.............................................................................
  6. clear
  7. setcolor("w+/n")
  8. ? "  S E G U E   A P I   S U P P L E M E N T A L   F U N C T I O N   D E M O"
  9. @ 23,0 SAY ;
  10. "(c) Copyright 1991, HRF ASSOCIATES, INC., TO ORDER API, CALL (800) 966-SEGUE"
  11.  
  12. do suplst
  13. return
  14.  
  15. PROCEDURE SUPLST
  16. LOCAL  mOBTYP, mUSRJNM, mUSRNM[0], mOBTP[0], rtn
  17. PRIVATE mDEMO :="SUPLST_(), List Users/Objects w/Supervisor Security"
  18. OK=.T.
  19. rtn=0
  20. xx=3
  21. @ xx, 0 say "SEGUE SS FUNCTION = "+mDEMO
  22. xx=xx+2
  23. @ xx, 0
  24. mOBTYP = 0
  25. @ xx,  0 say "Please enter Object type: " get mOBTYP
  26. read
  27. xx=xx+1
  28. mUSRJNM=space(46)
  29. @ xx, 0 say "Please enter Object Search String (wildcard OK): " get mUSRJNM
  30. read
  31. xx=xx+1
  32. rtn = SUPLST_(mOBTYP,mUSRJNM,@mUSRNM,@mOBTP)
  33. if rtn<0
  34.   ? "Error: ", rtn
  35.   wait
  36.   OK=.F.
  37. endi
  38. if .not. OK
  39.   return
  40. endi
  41.  
  42. @ 7,0 clear to 22,79
  43. xx=7
  44. yy=0
  45. for i = 1 to len(mUSRNM)
  46.   if xx=7
  47.     @ xx,  yy say "CNT USER OR OBJECT NAME      TYPE"
  48.     @ xx+1,yy say "═══ ════════════════════════ ═════"
  49.     xx=xx+2
  50.   endi
  51.     @ xx,  yy    say trans(i,"###")
  52.     @ xx,  yy+4  say trans(mUSRNM[i],"XXXXXXXXXXXXXXXXXXXXXXXX")
  53. if mOBTP[i]=1
  54.     @ xx,  yy+29 say " USER"
  55. elseif mOBTP[i]=2
  56.     @ xx,  yy+29 say "GROUP"
  57. else
  58.     @ xx,  yy+30 say trans(mOBTP[i],"###")
  59. endi
  60.   xx=xx+1
  61.   if xx=22
  62.     xx=7
  63.     if yy=0
  64.       yy=yy+43
  65.     else
  66.       yy=0
  67.       @ 22,0
  68.       @ 22,0 say "Press any key to continue..."
  69.       inkey(0)
  70.       @ 7,0 clear to 22,79
  71.     endi
  72.   endi
  73. next
  74. @ 22,0
  75. @ 22,0 say "Press any key to return..."
  76. inkey(0)
  77. return
  78.  
  79.